﻿Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim stringa1 As String = "testo1"
    Dim stringa2 As String = "testo2"
    Dim risultato As String = ""
    risultato = stringa1 & NL & stringa2
    Console.WriteLine("Lunghezza " & _
        "stringa1 = " & _
        stringa1.Length & NL & _
        "Lunghezza risultato = " & _
        risultato.Length)
    Console.ReadLine()

  End Sub
End Module
